﻿Imports System.Text

Public Class RemotableType
    Inherits MarshalByRefObject

    Public Function GetRemoteMessage() As String
        Dim internalString As New StringBuilder()
        internalString.AppendLine()
        internalString.AppendLine("**********************************************")
        internalString.AppendLine("***********Head First Design Patterns*********")
        internalString.AppendLine("**********************************************")
        internalString.AppendLine("This is a remote message from")
        internalString.AppendLine("the RemotableType as an example")
        internalString.AppendLine(".Net remoting which utilizes the")
        internalString.AppendLine("proxy pattern like the gumball example. Go to")
        internalString.AppendLine("http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cpguide/html/cpconnetremotingarchitecture.asp")
        internalString.AppendLine("For more information.")
        internalString.AppendLine("**********************************************")

        Console.WriteLine("Remote message sent!")

        Return internalString.ToString()
    End Function
End Class
